object MenuDlg: TMenuDlg
  Left = 200
  Top = 140
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'Speed Menu'
  ClientHeight = 285
  ClientWidth = 499
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Position = poScreenCenter
  ShowHint = True
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label8: TLabel
    Left = 8
    Top = 16
    Width = 115
    Height = 13
    Caption = 'Click on an item to edit it'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Image1: TImage
    Left = 168
    Top = 8
    Width = 32
    Height = 32
    AutoSize = True
  end
  object Label3: TLabel
    Left = 208
    Top = 16
    Width = 189
    Height = 13
    Caption = 'The Speed Menu is activated when you'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object AliasText: TLabel
    Left = 178
    Top = 130
    Width = 39
    Height = 13
    Alignment = taRightJustify
    Caption = 'Caption:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object ComText: TLabel
    Left = 162
    Top = 154
    Width = 55
    Height = 13
    Alignment = taRightJustify
    Caption = 'Commands:'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 152
    Top = 8
    Width = 9
    Height = 273
    Shape = bsLeftLine
  end
  object Label1: TLabel
    Left = 224
    Top = 30
    Width = 181
    Height = 13
    Caption = 'right click on the MUD output window.'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 208
    Top = 48
    Width = 268
    Height = 13
    Caption = 'Specify a caption for each item, along a list of commands'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object HelpTxt: TLabel
    Left = 224
    Top = 62
    Width = 218
    Height = 13
    Caption = 'seperate multiple commands with a ; character'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Help2: TLabel
    Left = 224
    Top = 76
    Width = 248
    Height = 13
    Caption = 'use %selword and %selline to refer to the word or line'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 240
    Top = 90
    Width = 115
    Height = 13
    Caption = 'that was right-clicked on'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 224
    Top = 152
    Width = 20
    Height = 20
    Hint = 'Edit command|'
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF7733333033000000033333373377777773330000}
    NumGlyphs = 2
    OnClick = SpeedButton1Click
  end
  object OKBtn: TBitBtn
    Left = 248
    Top = 252
    Width = 77
    Height = 27
    Caption = 'OK'
    Default = True
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 0
    OnClick = OKBtnClick
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 332
    Top = 252
    Width = 77
    Height = 27
    Cancel = True
    Caption = 'Cancel'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 1
    OnClick = CancelBtnClick
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 416
    Top = 252
    Width = 77
    Height = 27
    Caption = '&Help'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object MenuCaption: TEdit
    Left = 224
    Top = 128
    Width = 81
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    Text = 'MenuCaption'
    OnChange = MenuCaptionChange
  end
  object MenuCom: TEdit
    Left = 248
    Top = 152
    Width = 241
    Height = 21
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    Text = 'MenuCom'
    OnChange = MenuComChange
  end
  object MenuList: TListBox
    Left = 8
    Top = 32
    Width = 129
    Height = 185
    ExtendedSelect = False
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 5
    OnClick = MenuListClick
  end
  object NewBtn: TBitBtn
    Left = 8
    Top = 220
    Width = 76
    Height = 27
    Caption = '&New'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = NewBtnClick
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object DelBtn: TBitBtn
    Left = 8
    Top = 252
    Width = 76
    Height = 27
    Caption = 'Delete'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = DelBtnClick
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object BitBtn4: TBitBtn
    Left = 92
    Top = 226
    Width = 22
    Height = 21
    Hint = 'Move Menu item Up|'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = BitBtn4Click
    Glyph.Data = {
      90010000424D9001000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      333333333333333333333333333333333333333333333333333333E444444444
      44433338FFFFFFFFFFFF33E6666666666643333833333333333F333E66666666
      643333338333333333F33333E666666643333333383333333F3333333E666664
      3333333333833333F333333333E66643333333333338333F33333333333E6433
      33333333333383F3333333333333E33333333333333338333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333000000000000
      0000000000000000000000000000000000000000}
    Margin = 1
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object BitBtn5: TBitBtn
    Left = 115
    Top = 226
    Width = 22
    Height = 21
    Hint = 'Move Menu item Down|'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = BitBtn5Click
    Glyph.Data = {
      90010000424D9001000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      333333333333333333333333333343333333333333333F333333333333346433
      333333333333F383333333333346664333333333333F33383333333334666664
      3333333333F333338333333346666666433333333F3333333833333466666666
      64333333F3333333338333E6666666666643333F33333333333833EEEEEEEEEE
      EE43333FFFFFFFFFFFF833333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333000000000000
      0000000000000000000000000000000000000000}
    Margin = 1
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object DefItem: TCheckBox
    Left = 224
    Top = 184
    Width = 265
    Height = 17
    Caption = 'Make this the default double-click action'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object DefDef: TCheckBox
    Left = 224
    Top = 202
    Width = 265
    Height = 17
    Caption = 'Use last selected item as default action'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = DefDefClick
  end
end